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0010 

0020 

0030 

0040 

0050 

0060 

0070 

0080 

0090 

0100 

0110 

0120 

0130 

01 43 

0150 

01 60 

0170 

0183 

0190 
0200 
0210 
0223 
0230 
0243 

.0250 
0260 
0270 
0280 
0290 

0300 

0310 

0320 

0330 

0340 

0353 

0360 

0370 

03S0 

0390 

0400 

0410 

0423 

0430 

0440 

0450 

0463 

0470 

04S0 

0490 

0500 

0510 

0520 

0530 

0540 

0550 



REM 
REM 
REM 
REM 
REM 



LINE= 

STRING^ 72 

REM HAIKU MODIFIED 

PRINT : DIM R(0) 

PRINT 

LET A1=4 : 

LET A2=50: 

LET N1=50: 

LET V1=13: 

LET P1=7 : 

GOTO 140 

II If 

LET L$= 

RESTORE 

PRIST : PRINT 

LET R1 =INT(RND( ) *4+1 ) 

ON R1 GOTO 470, 690, 9 

REM * ARTICLE-CHECKING 

FOR 1=1 TO LEN(L§)-2 m 

IF MID$(L$,I,° 4 - 7 ' 

GOTO 260 

IF B$= 

IF 

I 

IF 

IF E$="U 

NEXT I 

FOR 1=1 TO 

IF MID$(L$,I,4)= 

GOTO 360.. 

IF B$="A 

B$= E 

B$= 

B$= 



?ROM PROGRAM IN AUG 79 KILOBAUD 



ARTICLE NUMBER 
ADJECTIVE NUMBER 
NOUN NUMBER 
VERB NUMBER 
PREPOS IT ION NUMBER 



10, 1130 
SUBROUTINE 



JLi. i~t v 



tf 



B$= E 
v n H 

Viii— T 
T II II 

B$= O 



THEN 

ITIT.T'CM 

THEN 
THEN 

THEN 



) = " A " THEN B$=MID$(L$, 1+3,1 ) 



GOTO 21 



L$=L3FT$(L$,I+1)+ 

L$=LEFT$(L$, 

L$=L 



t - T ,I+1) 

. t$(l$,i+D+"n 

=LEFT$(L$,I+1 )+ N 



"+MID$(L$,I+2) 
"+i'iID$(L$,I+2) 
"+MID$(L$,I+2) 
"+IlID$(L$,I+2) 
"+MID*(L$,I+2) 



LEN(L§)-2 

AN 



THEN B$=MID$(L$, 1+4,1 ) : GOTO 330 



ii 

I 
1 11 

O 

ft II 

B$= U 

sLEFT 



THEN 
THEN 
THEN 

THEN 
THEN 



363 
360 
360 
360 
363 



$(L$,I+l)+MID$(L$,I+3) 



IF 

IF 

IF 

IF 

LET L$- 

NEXT I 

RETURN 

REM WORD-CHOOSING SUBROUTINE 

LET R= RND ( ) *H + 1 +P 

FOR 1=1 TO R 

READ W$ 

NEXT I 

LET L$=L$+ +W$ 

RESTORE 

RETURN 

REM * 

LET N=A1 : 

LET N=A2 : 

LET N=N1 : 

GOSUB 180 ( 

LET L$=L$+ 

PRINT L$ it 

LET L$= 

LET N=A1 : 

LET N=N1 : 



HAIKU PATTERN 
; GOSUB 390 
: GOSUB 393 
P=A1+A2 : GOSUB 390 



FIRST 

P=0 
P=A1 



P=0 : GOSUB 390 
P=A1+A2 : GOSUB 390 
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0560 
0570 
0530 
0590 
0600 
0610 
0620 
0630 
0640 
0650 
0660 
0670 
0630 
0690 
0703 
0713 
0720 
0730 
0743 
0750 
0760 
0770 
0783 
0793 

0810 
0320 
0830 
0840 
0850 
0860 
0373 
0833 
0393 
0900 
0910 
0920 
0930 
0940 
0950 
0960 
0970 
0980 
0990 
1000 
1010 
1020 
1030 
1043 
1050 
1060 
1070 
1380 
1090 
1100 
1110 



LET IT=V1 

LET K=P1 
LET K=A1 
LET N=N1 
GOSUB 130 
PRIOT L$ 
LET L$= '" 
LET N=A2 : 
GOSUB 390 
LET N=N1 : 



P=A1+A2+N1 : GOSUB 390 
P=A1+A2+N1+V1 : GOSUB 390 
P=0 : GOSUB 390 
P=A1+A2 : GOSUB 390 



P=A1 : GOSUB 390 
P=A1+A2 : GOSUB 390 



GOTO 

LET 
LET 
LET 
LET 



'9 

120 

N=M1 
IM=P1 

H=A1 



SECOND HAIKU PATTERN 
P=A1+A2 : GOSUB 
P=A1 +A2+N1 +V1 : 
P=0 : GOSUB 390 
P=A1+A2 : GOSUB 



390 
GOSUB 



390 



590 



GOSUB 180 




LET L$=L$+";" 


PRIIff Ls 

tin. 

T "vfp T d* — 




LET N=A1 ! 


, P=0 : GOSUB 393 


LET I>i=A2 


: P=A1 : GOSUB 390 


LET H=N1 , 


; P=A1+A2 : GOSUB 393 


LET H=P1 


! P=A1 +A2+K1 +V1 : GOSUB 


LET E=A1 


S P=3 : GOSUB 390 


LET M=M1 


: P=A1+A2 : GOSUB 390 


GOSUB 1 80 




PRIwT LS 

J.JJ-3 X Ij^J" 




LET K=A2 


: F=A1 : GOSUB 390 


LET K=H1 


: P=A1+A2 : GOSUB 390 


PRINT L$ 




GOTO 1 20 




REM' * 


THIRD HAIKU PATTERN 


LET Iv=A1 


: P=0 : GOSUB 390 


LET I*=A2 


: P=A1 : GOSUB 390 



i90 



LS 
Jin 



GOSUB 390 
LET N=N1 : 
GOSUB 180 
LET L'$=L$ + 
PRINT 
LET L$= 
N-P1 
K=A1 
N=A2 
K=N1 
GOSUB 130 
PRIIir LS 

Fin 

LET L$= 
LET N=A1 
LET N=N1 
LET N=V1 
GOSUB 180 
PRINT L$ 
GOTO 120 



P=A1+A2 : GOSUB 390 



tt If 

* 



LET 
LET 

±U J. 

LET 



390 



P=A1 +A2+II1 +V1 
P=0 : GOSUB 
P=A1 : GOSUB 393 
P=A1+A2 : GOSUB 390 



GOSUB 390 



P=0 : GOSUB 390 
P=A1+A2 : GOS B 390 
P=A1+A2+N1 : GOSUB 390 
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1123 

1130 
1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

132D 

1330 

1340 

1350 

1360 

1370 

1330 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1 480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1 640 



REM * 
LET N=A1 
LET N=A2 
LET N=N1 
LET N=V1 
GOSUB 130 
LET L$=L$+ 
PRINT L6 

hit 

LET L$= 
LET N=A1 : 
LET K=A2 : 
GOSUB 390 
LET N=N1 : 
G-OSUB 180 
PRINT L£ 

T«ti 

LET L$= 
LET N=P1 
LET N=A1 
LET H=A2 
LET ls= In1 
GOSUB 130 



FOURTH HAIKU PATTERN 
P=0 : GOSUB 390 
•P=A1 : GOSUB 390 
P=A1+A2 : GOSUB 390 
P=A1+A2+N1 : GOSUB 390 

it it 
> 



P=0 
P=A1 



GOSUB 390 
GOSUB 390 



P=A1+A2 : GOS B 390 



P=A1 +A2+N1 +71 : GOSUB 390 
?=0 : GOSUB 390 
?=A1 : GOSUB 390 



P=A1 +A2 
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REM * : 

DATA 

■n * T 1 - 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

REM * 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

REM * 

DATA 
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ARTICLES 
it ii ii it 

•TV" vr ZiT^ r 
J - 1 "_> *--• » • 

ADuBCTxVES 



.. ti ii ii ii it ti _ ii ti 

AUTUMN , HIDDEN , BITTER . MISTY , SILENT , 

i IF II * IV - Iff * If Iff TT Iff * fff Iff * 

I ' II II * II Iff ' II Iff * I 

WHITS , SUDDEN . COOL , SPRING 

I * »t II ft I* * II Iff »i 

TWILIGHT , DAWN . CRIMSON , WISPY , 

it it _ * ft ii it * ii ii n 

; - BILLOWING , BROKEN , COLD , ^nnr . 

Ml ii it ii » ii ii * ii it _ * it 

FROSTY , GREEN , LONG , LATE , LINGERING . 



BLUI 



WINTER , 

if t| * ft 

AZURE 

DAMP 



xKPTY . 

dappled' 



If * 11 



LITTLE V MORNING 



•i ii 



MUDDY 






STIUb 



SHALL 



SPARKLxNG 



ORANC 

' throbs im' 



ALLING 

LIMPID* 
_ „ ii 

RiiD 

wandering' 



If tl * II * If ffl * If IF If * I 

PINE , SHADOW . LEAF .DAWN , 

ii ti * ii it n ft it it » i 

HILL , CLOUD , MEADOW , SUN , 

I« * TI II 7 If If * II II. _ _* ■ 



WITHERED" , "WILD" , "BLACK", "YOUNG" 
NOUNS 

'scarecrow" , "waterfall" , "river" , "breeze " , "moon" 

I II II *" fl II Iff II * II II ' II It * II l» 1 

RAIN ■ WIND . SEA , MORNING , SNOW , LAKE , SUBSET 

If fl * II * If ffl * If IF ff * fff * If «f * ft 

-~~ " -"•- "' GLITTER , FOREST 

BUTTERFLY , "BUSH" , "CROW , DEW*' , "DUST , "FIELD*' 
ii ii ti 7 ii'ii * _ it ii * ii it » _,.*» 

FLOWER . FIREFLY , FEATHER , GRASS , MOUNTAIN 
it it ft 11 ii '_ ii ii' it ti » ii 

NIGHT , POND , PliYB-CONE , SHADE . SNOWFJuAKE 
it * ii n * ii H n ii ' ii ii ' ii it ._ ii 

SILENCE . SOUND - SKY , SHAPE , SURF , THUNDER 

h _ ii ft __ ._ ii «_ 



VIOLET 



WATER , WILDFLOWER 



VERBS 

'shakes", "DRIFTS 
ii it 



» 
it tt 



HAS TURNED 



tt ii 

f 



WAVE 

struggles' 



DATA "HAS FALLEN ," HAS PASSED , SLEEPS A CREEPS 

"is TRICKLING 



flutters", "has RISEN 



DATA 

DATA "IS FLOATING 

REM * 



IS FALLING*, 



END 



_»t tt 
» 



PREPOSITIONS 
» 
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i 
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1 CHECKERS PACi - "' fi^" 



0010 REM CHECKP, From SBVC RSTS DISC 

0020 LIEE = S3 

0030 PRIET ]|'. This prograra plays checkers; ' The computer is X," 

0040 PRIET §t and you are 0. The computer will go first *E0TE: 

0050 PRj.ni- n Squares are in the form- (X,Y) and SQ. 1,1 is the bottom' 

0050 PRIJ.1T M left* Do not attempt a double jump or your piece raicrht' 

0070 PRINT " u just disappear (same for a triple jumpl)" 

0030 PRIET " Wait for me to move first l"i ' ' " 

0090 LET G=-1 

0100 DIM R(50) 

0110 LET L=-1 

0120 REE 

0130 DATA 1,3,1,0,3,0,-1,0,0,1,0,0,0,-1,0,-1,15 

0140 FOR X=1 TO 8 

015D FOR Y=1 TO 8 

0163 READ J 

0173 IF J=15 TEEN 200 

0180 LET S(X,Y)=J 

0190 GOTO 223 

0200 RESTORE 

0210 READ S(X,Y) 

0220 RE XT Y 

0230 HE XT X 
f\r>/ji~, -o--?-t 

i^B JLiET sj=-x, 
0260 FOR' X=1 TO 3 
0273 FOR Y=1 TO 3 
0280 IF S(X,Y}=0 THEE 370 
0293 IP G>0 THEE 325 
0300 IF S(X,Y)>0 TEEN 370 
0310 GOTO 330 
0320 IF S(X,Y)<0 TREE 370 
0333 IF ABS(S(X,Y))<>1 TREE 350 
0340 GOSUB 450 

0353 IF ABS(S(X,Y))<>2 THEE 370 
0360 GOSUB 2000 
0370 IF X<>3 THEE 430 
0380 IF L=1 THEE 400 
0390 RETURE 
0400 NEXT Y 
0410 NEXT X 
0420 PRIET 
0430 GOSUB 1160 
0443 GOTO 25 
0450 FOR A=-1 TO 1 STEP 2 
0460 LET U=X~A 
0470 LET V=Y+G 
0480 IF U<1 THEE 650 
0490 IF U>3 TREE 650 
0500 IF V<1 THEE 650 
0510 IF V>8 THEN 653 
0520 IF S(U,V)<>0 THEN 550 
0530 GOSUB 930 
0540 GOTO 650 
0550 IF S(U,V)=G THEE 650 
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E 08* 



0560 
0570 

0530 

05SS 

0600 

0610 

0620 

0630 

0640 

0650 

0662 

067S 

0630 

0690 

0700 

0710 

0720 

073D 

0740 

0750 

0760 

3770 

07S0 

0790 

0800 

0310 

0320 

0S30 

O 0/ n 

0353 

n* ™ /* rt 

0370 
0SS0 
0390 
0930 
0910 
0920 
0930 
0940 
0953 
3960 
0970 
0980 
0990 
1CD0 

1010 

1020 
1030 
1040 
1050 
1063 
1370 
1030 
1090 
1100 
1110 



IP S(U,V)=2*G THEN 650 

LET U=U+A 

LET V=V+G 

IF U<1 THEN 650 

I? U>8 TEES 650 

IF V<1 THEN 650 

IF V>8 THEN 650 

IF S(U,V)<>0 THEN 650 

GOSUB 930 

RETURN 

REM KING MOVES 

FOR A=-1 TO 1 STEP 2 

FOR B=-1 TO 1 STEP 2 

LET U=X+A 

LET V=x+B 

IF U<1 THEN 390 

IF U>3 THEN 890 

IF V<1 THEN 893 

IF V>8 THEN 890 

IF S(U,V)<>0 THEN 7 90 

GOSUB 930 

GOTO 89 

IF S(U,V)=G THEN 893 

IF S(U f V)=2*G THEN 830 

JjJJi 'i' U = U -hra. 

LET V=V+B 

~T? TT/I it»7-"~'.'TT OQ.'/i 

~"? tAo rp?~j>7,T pon 
J..5 u/i-t J.^.jjji^ ui/w 



IF V<1 THEN 890 

IF V>3 THEN 830 

IF S(U,V)<>0 THEN 393 

GOSUB 930 

NEXT 3 

RETURN 
GOTO 1450 



THEN 980 
THEN 1000 



LET ?=P+1 

IF P=K THEN 1260 

IF V<>(4.5 + (3.5«G)) 

LET Q=Q+2 

IF XO(4.5-(3.5«G)) 

LET Q=Q-2 

REM * 

IF U<>1 THEN 1030 

LET Q=Q+1 

IF U<>3 THEN 1050 

LET Q=Q+1 

FOR C=-1 TO 1 STEP 2 

IF S(U+C,V+G)<1 THEN 1100 

LET Q=Q+1 

IF S(U-C,V-G)<>0 THEN 1100 

LET Q=Q-1 

REM THIS WAS THE EVALUATION SECTION 

REM 
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1120 NEXT C 

1130 LET R(P)=Q 

1140 LET Q=0 

1150 RETURN 

1160 IF P=0 THEN 1960 

1170 FOR J=10 TO -10 STEP -1 

1180 FOR F=1 TO P 

1190 IF R(F)=J THEX 1230 

1200 NEXT F 

1 21 NEXT J 

1220 LET F=F+1 

1230 LET KsF+p 

1240 GOSUB 25 

1250 RETURN 

1260 PRINT- " I raove from (";X;Yj") to (";U;V;") 

1270 LET F=0 

1280 LET P=0 

■I 9Qfj j -prn TV— 

1300 IF V<>(4.5+(3.5*G)) THEN 1330 

1318 LET S(U,V)=2*G 

1320 GOTO 1340 

1338 LET S(U,V)=S(X,Y) 

1348 LET S(X,Y)=3 

1358 IF A3S(X-U)<>2 THEX 1378 

1360 LET S((X+U)/2,(Y+V)/2)=0 

1378 REX 



1380 


REM 




1390 


REX 




1400 


GOSUB 1440 




1410 


RETURN 




1 420 


GOSUB 1 S78 




1 430 


pp r.TTT 137,7 




1440 


PRIXT 




1450 


FOR Y=3 TO 1 


STEP -1 


1460 




' 1510 


1470 


PRINT : FOR 


X1=1 TO 



s 

II 



1430 IF X1=1 THEN PRINT 

1 490 PRIXT X1 ; 

1500 NEXT X1 : PRINT : PRINT 

1510 PRIXT Y; 

1520 FOR X=1 TO 8 

1538 LET I=2*X+2 

1540 IF S(X,Y)<>8 THEX 1560 

1550 PRINT TA3{ I );"."; 

1560 IF S(X,Y)<>1 THEX 1530 

1578 PRINT TX3{l);"o"; 

1530 IF S(X,Y)<>-1 f TXEX 1600 

1590 PRINT TA3(l); X ; 

1600 IF S(X,Y)<>-2 THEN 1620 n ( 

1610 PRINT TAB(l);"x ;TAB(l); * 

1628 IF S(X,Y)<>2 THEX 1640 o 

1630 PRIXT TAB (I); ;TAB(l); * ; 

1640 NEXT X 

1650 PRINT 

1660 NEXT Y 

1670 PRINT 



> 
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1680 PRINT "?ROH"; 

1690 INPUT E,I-I 

1700 LET X=E 

1710 LET Y=H 

1720 IF S(X A Y)<>0 THEN 1760 

1 730 PRINT There is no one occupying that space' 

1740 PRINT 

1750 GOTO 1G3C 

1760 PRINT "TO"; 

1770 INPUT A,D 

1730 LET X=A 

179D LET Y=B 

1300 IF S(X A Y)=0 THEN 1340 

1310. PRINT' That space is already occupied" 

1820 PRINT 

1830 GOTO 1760 

1840 LET S(A,B)=S(E,N) 

1350 LET S(E,H)=0 

1S60 LET T=(4.5~(3.5*G)} 

1870 IF A3S(E-A)<>2 THEN 1393 

1880 LET S((E+k)/2,(lI+3)/2)=S 

1390 I? 3<>T THEN 1910 

19S0 LET D(il,3)=-2*G 

1910 FOR X=3. TO 3 

1920 FOR Y=8 TO 3 

1930 RETURN 

1940 NEXT Y 

1950 NEXT X 

1963 PRINT " Very good, YOU vJINHIl" 

1970 PRINT 

1983 PRINT 

I bbu ^-\±r^ jijui j.Ci noVi # « ♦ » » 

<-* i-r 1-* ;_/ w-J J. w-> 
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A New Algorithm for Computing a Single Root of a 
Real Continuous Function 

CJ.F.R1DDERS 

Abstract— A fast and simple iterative method is proposed for the 
determination of a single real root of a real continuous function. The idea 
Is based upon linearizing the original function whereafter the regula falsi is 
applied to this modified function which leads to a very simple algorithm. 
The rate of convergence is shown to be quadratic or better. 

I. Method 

Let the function be represented by F(x). We create a new 
function H(x)-*F(x)-e mx in such a way that for three equidis- 



The described method can even be used when /"o"^! or 
F x — F 2 as can accidentally happen. 

Suppose F(x)—x 3 — x — 5 and we choose [— 1,3J as the start- 
ing interval. 

F «F,«»-5; F 2 ~19. 

For x 3 we compute the value 1.9128, which is already fairly 
close to the root 1.904160859- • • . 

As F 3 >0 we decide to take [x„x 3 ] r.s the next interval of 
computation (Fig. 2). 

The procedure can be terminated when a given accuracy is 
obtained. 



? 




Fig. 1. 

tant x values x* x, an x 2 the following requirement is met: 

Hj-lHt + H^O, with H n = H(x n ). (1) 

Let rf-jci-x.-x.-xo and F o -F 2 <0, then from (1) it follows 



F r e 2md '-JFve^+Fo-O 



(2) 



with W=Fl-F<>F 2 . (3) 



with the analytical solution 

F l - S ign(F )-VF 
e _ 

The factor sign (F ) is deduced from the conditions W>Q and 
e"* >0 The next step is the application of the regula falsi to the 
points ix»Nd and (x»H& which leads to the expression 

x^H 7 - x 2 H l d / 4) 

*»' W^Hx ' ^/H.-l 

where x 3 is the first approximation of the root of F(x) and 
H IH *=F 2 -e md /F l . Equation (4) can be written m the form 

(5) 



Xj =Xi + sign(F )- 



F t d 

vw 



To avoid the factor sign (F ) we divide numerator and de- 
nominator by F and obtain the final expression for the algo- 
rithm: 

, . f t/ F o (6) 

^FjFtf-FjF* 
When F F 2 <0, x 3 will be on the interval [x^xj so convergence 

is guaranteed. ■ " ■ 

After computation of the first iterate x, we build up a new 
interval consisting of x 3 and one of the other remaining x values 
in such a way that F 3 F n <0 (/» =0, 1,2) in order to be sure that 
the next iterate will remain on the starting interval. The proce- 
dure is depicted in Fig. 1. 



e 3 - «,-«!• 



(7) 



II. Rate of Convergence 

Let e„"x H -r be the actual error between x„ and the root r. 
By means of a Taylor expansion in the vicinity of r we get 
F n ~eJ+elg+elh with /=F'(r), g = |F"(r), and h = {F"\r) 
•d— e 1 - e Q ^ e 2~ e i so me error at the first * terate is 
{e x -e )(f+e ig +e\h) 
VW 

which can be derived from (5). This expression is valid for all 
possible shapes of F(x). 

W=e 2 (f+e t g+e 2 h) 2 -e e 2 (f+e g + e 2 ,h)(f+e 2 g + e 2 h). 
After some adequate approximations we get 
W-^-eof-lf + g^ + le^-eD + leJg+lM^-^f]. 
When F l -»C, e^Q, and e 2 <&[e e 2 \ so 



1 g 2 -2flt 

*3~ 2*0*1*2 72 



(8) 



III. Examples 



F(x)=xe x - 10 on [-HU0J 
x 3 =0.06- • • 
2.75- •■ 
1.71 - - - 

1.746-- 
1.74552798- •• 
1.745528003 



on t- 100, 100] 
x 3 =6.10- 21 
7.74- •• 
2.38- •• 
1.709- • • 
1.7458- • • 
1.745527990- 
1.745528003 



F(x)=(tanx) tMX - 10 3 on [1.3, 1.4] 
x 3 = 1.352- •• 
1356- • • 
1.3547099- •• 
1.354710442 



on [0,1.5] 
x 3 =0.75--- 
1.12--- 
1.31 - - - 

1.40- • • 
1.357- • • 
135429- •• 
1.354710756 
1.354710442. 

F(x)=sinx on [10,280], x in degrees. A trivial example. 

x 3 = 254.50- - • 
177.09- • • 
179.97 -• • 
179.99995- •• 
180. 



IV. Conclusion 

The proposed algorithm offers a good rate of convergence and 
is suitable especially on those cases where F(x) is not strictly 
monotone. The method can be used when other three-point 
iterative methods (e.g., exponential or hyperbolic) fail. 
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5000 
5005 
5010 
5015 
5020 
5025 
5030 
5035 
5040 
5045 
5050 
5055 
5060 
5065 
5070 
5075 
5080 
5085 
5090 
5095 
5100 
9000 
9005 
9010 
9015 
9020 
9025 



SUBROUTINE CUBIC 
SOLUTION OF THE CUBIC EQUATION 
A*X*X*X + B*X*X + C*X + D = 
INPUTS, EQUATION COEFFICIENTS. A,B,C, 
OUTPUT. ROOTS OF THE CUBIC EQUATION, 



X1 .X2.X3 



REM 

REM 

REM 

REM 

REM 

REM 

P= B/A:Q= C/A:R= D/A:E= 1/3 

A1 = (3*Q-P*P)/3:B1= (2*P*P*P-9*P*0+27*R)/27 

D1= A1*A1*Al/27+B1*B1/4:IF ABS(D1) < 1E-10 THEN D1=0 

ON (2+SGN(D1)) GOTO 5050,5070,5080 

E0= 2*S0R(-A1/3):C1=-B1/(2*S0R(-A1*A1*A1/27)) 

S1= SQR( 1-C1*C1 ) :GOSUB 9000 

Z1= E0*C0S(P1/3) :Z2= EO*C0S(P 1/3+2+PI/3) 

Z3= EO*C0S(Pl/3+4*PI/3) :G0T0 5095 

Z1= SGN(-B1/2)*(2+ABS(-B1/2)-E) 

Z2= SGN(B1/2)*(ABS(B1/2)~E):Z3=Z2:G0T0 5095 

T1= -B1/2+SQR(D1) :T2= -B 1/2- SQR(D 1 ) 

Z1= SGN(T1)*(ABS(T1)-E)+SGN(T2)*(ABS(T2)~E) 

PRINT "X1 REAL, X2.X3 COMPLEX" 

X1= Z1-P/3:X2= Z2-P/3:X3= Z3-P/3 :RETURN 

REM 

REM ATAN3 SUBROUTINE 

REM INPUTS. S1= SIN(PI), C1=C0S(P1) 

REM OUTPUT, P1= ATAN3(S1/C1 ) , 0=< P1 <=2*PI 

IF ABS(S1) < 1E-10 THEN P1= 0:RETURN 

P1= (2-SGN(S1))*PI/2:IF ABS(C1) < 1E-10 THEN RETURN 

P1= P1+SGN(S1)*SGN(C1)*(ABS(ATAN(S1/C1))-PI/2):RETURN 
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8000 
8005 
8010 
8011 
8012 
8013 
8014 
8015 
8020 
8021 
8022 
8023 
8050 
8051 
8052 
8053 
8055 
8056 
8057 
8060 
8061 
8062 
8065 
8066 
8067 
8068 



REM SUBROUTINE NYM4 

REM 4TH-0RDER NYSTROM INTEGRATOR 

REM INPUTS ' 

REM INITIAL CONDITIONS; TO,XO( I ) , V0( I ) 

REM 01= STEP SIZE, N= NUMBER OF EQUATIONS 

REM E(I) = SYSTEM OF DIFFERENTIAL EQUATIONS 

REM OUTPUTS 

REM FINAL CONDITIONS; TO,XO( I ) . V0( I ) 

REM INTEGRATOR COEFFICIENTS 

A1 =. 045 :A2=. 3 :A3 = 13/ 126 :A4=5/ 18 :A5=5/42:B 1=7/600:82=7/30 

B3=-7/15:B4=7/6:B5=25/63:B6=.7:C1=19/78:C2=35/312:C3=15/104 

C4=64/39:C5= -70/39 :C6= 15/13: RETURN 

T= TO:FOR 1=1 TO N:X(I)= X0( I ) : V( I )=V0( I ) :NEXT I:GOSUB 8S00 

T= TO+A2*01:F0R 1=1 TO N:K1(I)= D1*E(I) 

X(I)= X0(I)+D1*(A2*V0(I)+A1*K1(I)) 

V(I)= V0(I)+A2*K1(I):NEXT I:GOSUB 8500 

T= T0+B6*D1 :FOR 1=1 T0N:K2(I)= D1*E(I) 

X(I) = X0(I)+D1*(B6*V0(I)+B1*K1(I)+B2*K2(I)) 

V(I)= V0(I)+B3*K1(I)+B4*K2(I):NEXT I : GOSUB 8500 

T= T0+D1:F0R 1=1 TO N:K3(I)= D1*E(I) 

X(I)= XO(I)+D1*(VO(I)+C1*K1(I)+C2*K2(I)+C3*K3(I)) 

V(I)= V0(I)+C4*K1(I)+C5*K2(I)+C6*K3(I):NEXT I:G0SUB 8500 

TO= T0+D1:FOR 1=1 TO N:K4( I )= D1*E( I ) 

X0( I )* X0( I )+D1*( V0( I )+A3*K1 ( I )+A4*K2( I )+A5*K3( I ) ) 

V0( I )= VOO )+A3*(K1( I )+K4(I ) )+B5*(K2( I )+K3( I ) ) 

NEXT I: RETURN 
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FRIDAY* 1/4/1980 



DEAR JEFF* 



GREETINGS AND FELICITATIONS FOR THE NEW YEAR 
FAMILY ARE OFF FO A GOOD START FOR THE YEAR. 



AND NEW OECAOEI HOPE YOU AND YOUK 



ON A FEW OCCASIONS DURING THE PAST YEAR I HAVE NEEDED TO RUN THE RANDOM NUMBER 
GENERATOR IN PROGRAMS WHERE SEVERAL HUNDRED 'DIFFERENT NUMBERS WITHIN GIVEN 
UPPER AND LOWER LIMITS ARE NEEDED. I HAVE FOUND THAT WHATEVER ROUTINE AND 
WHATEVER SEED QUANTITY IS USED IN RND RUNS TO EXHAUSTION A LITTLE TOO 
QUICKLY. 

SHOWN ABOVE ARE 1*0 RUNS OF A PROGRAM WHICH PLACES /JLS AT RANDOM LOCATIONS ON 
THE SCREEN BETWEEN E000 AND E1FF. WITH 600 LOOPS THROUGH THE PROGRAM AND AN 
EFFICIENT RND FUNCTION* ONE WOULD EXPECT THE SCREEN TO END UP NEARLY FULL* dUF 
SUCH IS NOT THE CASE. IN FACT* THE SCREEN CEASES TO SHOW CHANGE LONG BEFORE 
THE 6*0 REPETITIONS ARE COMPLETE. 

MY QUESTION OF YOU* JEFF* IS WHETHER YOU HAPPEN TO KNOW FROM YOUR MANY 
DISASSEMBLIES OF OUR BASIC WHEkE THE SEED NUMBER FOR THE RND FUNCTION IS 
LOCATED AND WHEkE FhE RND FUNC T I ON I TSELF IS LOCATED? IT MIGHT dE FOSSIaLE 10 
IMPkOVE IrtlS FUNCTION EITHER BY USING SOME Tnl'CKS TO CHANGE THE SEED nUMBEk 
OCCASIONALLY OR 6Y INSERTING ANOTHER ALGORITHM FOR GENERATING RANDOM imUMoEkS. 
IF YOU CAN HELP ME WITH THE APPROPRIATE ADDRESSES* I WOULD BE GRATEFUL. 



YOUJ.LL NOTICE THAT THE PORTION OF THE PROGRAM LISTED ABOVE FROM LINE btf TO TnE 
END IS A NICE LITTLE ROUTINE WHICH WILL DUPLICATE THE SCREEN (32X16) CONTENTS 
ON THE PRINTER* FORWARD THIS TO OUR nEWSLET TER IF YOU WISH. 

I WROTE THE FELLOW WHO WAS ASKING FOR PIM SCHEMATICS THAT I HAD THEM. I OIONM 
KNOW THEY WERE THAT HARD TO FIND* BUT FOR THE kECORD IN CASE ANYONE ELSE WANTS 
TO KNOW* I HAVE COMPLETE BLUEPRINTS FOR THE F I rt/5 BOARD. 

I HAVE MY EYE ON THE MECA HIGH SPEED CASSETTE TAPE UNIT CALLED THE rfETA-1 AS A 
LOWER PRICED SUBSTITUTE FOR DISK. HAVE YOU HEARD ANY INFORMATION AaOUT THIS 
MACHINE WHICH YOU COULD PASS ON TO ME? FROM WHAT I HAVE READ ABOUT IT* IT 
LOOKS LIKE IT WOULD bE MORE EASILY INTERFACED TO SPnERE THAN THE EXATRON 
STRINGY FLOPPY. 

BEST REGARDS TO YOU. 

SINCEhEL 



••(kxRw^ 



0010 HOME 

0020 FOR X=1 TO 600 c ,o. -.xx „ 7 -> 

04)30 P.0KE( |Nf(((57855-57344+1)*HNO(0) + 57344))»47) 

0040 NEXT X 

0050 LET M=57344 

0060 FOR X=1 fO 16 

0070 FOR Y = 1 TO 31 

0080 PRINT #7»CHR$(PEEK(M)); 

0090 LET M=H+1 

0100 NEXT Y 

0110 PRINT *7»CriK$(PEEK(M)) 

0115 LET M=M+1 

0120 NEXT X 

0130 END 
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THE FOLLOWING tfAR-GRAPH|NG PROGRAM* WRITTEN IN CSS BASIC WILL GRAPH NUMEKlC 
DATA ON AN 80 COLUMN PRINTER. 

EACH BAR CAN BE LABELED WITH A STRING <19 CHARACTERS IN LENGTH. 

THE SUMMING OPTION IS t-QH TOTALING A LIST OF NUMBERS IN ORDER THAT THE SUM MAY 
BE GRAPHED. IS THE ESCAPE FLAG- \ 

WHEN THE PROGRAM CALLS FOR THE VALUES TO BE GRAPHED* II EXPECTS THE LAdEL 
STRING* A COMMA* ANDTHEN THE NUMERIC VALUE TO dE GRAPHED. THE ESCAPE FLAG TO 
EXIT INPUT AND START GRAPHING IS...ENO»0. 

VALUES CAN BE GRAPHED EITHER AS A PERCENTAGE Or THE LARGEST VALUE IN THE LIST 
OR ON AN ABSOLUTE SCALE rfiTH EACH VALUE oEING ITS PROPORTIONAL SHARE OF In£ 
AVAILABLE SPACE ON THE fAGE. 

THE ACTUAL 6RARHING SUokOUTINE BEGINS AT LINE 900<J. DED I CA T ED VAR I ABLE LAaELS 
ARE Z*N*Y »X(N) »x$(N) . 

THE PROGRAM IS JUST THE ThING FOR SHOEING THE BAD NEWS ON HOw YOUN HOUSEHOLD 
BUDGET ITEMS HAVE STEAOILY INCREASED OVE« ri E YEARS! AS IF YOU NEED TO SEE 
SUCH AGONIZING DATA! 

JOSEHri DAWES 



A little trick: 

Charles Matteson told me that he is able to run keyboards as much 
as 150 feet from the Sphere Computer using long ribbon cables. The 
trick is to give the keyboard its own 5 Volt power supply and disconnect 
the 5 Volt line coming from the Sphere, J,B, 

Make certain that DEF FN in your CSS works/ 
check locations for correct code 

18AO should have 17 

18DB should have 36 \ (3> 

18FF should have 13 ' 

now run this test program: 

^0020 PRINT RENTER THE RADIUS OF A CIRCLE ( IN INCHES)"* - 

0040 DEF FNC< X >==2*PI#X 

0050 PRINT •'THE CIRCUMFERENCE OF A CIRCLE WITH A RADIUS OF "JR?" INCHES IS "*FNC 

ENTER THE RADIUS OF A CIRCLE (IN INCHES : 4,000 
THE CIRCUMFERENCE OF A CIRCLE WITH A RADIUS OF 
4.000 INCHES IS 25,132 INCHES 



IT 



000b REM BARGRAPHER (B6) - CSSBA 

000? REM JOSEPH DAWES 

001 id HOME 

0020 INPUT "HOW MANY ITEMS"„»X 

0030 DIM X$(X):DIM X(X) 

0035 LET N=1 

0040 INPUT "SUMMING DESIRED H »X$ 

0050 IF X$=»NO" THEN 130 

0060 LET X = 

0070 INPUT "OK"»Z 

0040 IF 2=0 THEN 110 

0090 LET X=X+Z 

0100 GOTO 70 

0110 PRINT "SUM IS ";X 

0130 PRINT "INPUT 1LABEL»VALUE1 M 

0140 INPUT X$(N)»X(N) 

0150 IF X$(N)="END" THEN 170 

01bi5 LET N=N+1:G0T0 40 

0170 LET N=N-1 

0180 INPUT "ZAGE OK ABSOLUTE SCALE">X$ 

0190 IF X$="ZAGE" THEN 220 

0200 GOSUb 9200 

0210 END 

0220 GOSUB 9000 

0230 END 

9000 GOSUB 9005 

90«s2 GOTO 9080 

9005 LET 2=N:LINE=100 

9010 LET N=1 

9020 LET r=X(N) 

S030 IF N=Z THEN RETURN 

9040 LET N=N+1 

9050 IF Y<X(N) THEN 9020 

9060 IF N=Z THEN RETURN 

9070 GOTO 9040 

%$66 PRINT #7:PR|NT »7»"100Z VALUE=";Y 

9090 FOR N=1 TO Z 

91,50 PRINT «7>X$(n) ;TAB(21); 

9110 IF X<N)<0 THEN X(N)=-1*A(N) 

9120 IF X(N)=0 THEN 9160 

9125 IF lNT((X<N)/r*45)+»5)<1 THEN 9190 

9130 FOR C=1 TO INT(U(N)/Y*45) + »5) ■ 

9140 PHI NT Hi »"*"; 

9150 NEXT C 

9160 PRINT #7»" "; INT((X(N)/Y*100) + .5);"2" ' 

9170 NEXT N 

9160 LINE= 80:RETURN 

9190 PRINT #7>"*";:G0T0 9160 

9200 GOSUB 9005 

9210 PRINT *7:PR|NT # 7» »SCALE=" ; Y/45 ; 'VMARK--FULL SCALE = 

9220 FOR N=1 TO Z 

9230 PRINT */»X$(N);TAS(21); 

9240 IF X(N)<0 THEN X(N)=-1*X(N) 

9250 IF X(N)=0 THEN 9300 

9260 IF INl((X(N)/( Y/45))+.5)<1 THEN 9330 

9270 FOR C=1 TO I NT ( (X( N)/( Y/45) )*.5) 

9280 PRINT »7* u *«; 

9290 NEXT C 

9300 PRINT *7>" M ;X(N) 

9310 NEXT N 

9320 LINE= 80J RETURN 

9330 PRINT *7»"*";G0T0 9300 

9340 END 



s to allow the use of OSS Basic 

represent an alternate method 
without using TWRITE and TREAD 
to size of data block. 



For BASIC 

TPOS 54 50 4F 53 00 295 A 
54 42 4B 40 00 2980 
54 42 4B 53 00 2989 
44 52 56 31 



TBKL 
TBKS 

drvi 

DRV 2 



00 2950 
44 52 56 32 00 2954 



Additional CSS Commands \ H 

By Robert M. Grainger 

The following notes describe routine 

with a Teletype. The other routines 

of reading and writing DATA to tape 

which are admittedly restricting as 

COMMANDS 

For ASR 33 

RDON 52 44 4F 4E 00 2936 

RDOF 52 44 4F 46 00 293 A 

FORM 46 4F 52 4D 00 293E 

BELL 42 44 40 40 00 2942 

ECHO 45 43 48 4F 00 2946 

NCHO 4E 43 48 4F 00 294A 

*A11 is relocatable except byte 2928 

To use an ASR 33 at Port 4 put in jimp tablet 

0149 7E 2929 TTY out 

01 40 7E 291E TTY in 

01 4F 7S 2911 TTY initialize 

Now PRINT #4," " will print to TTY 

One can run OSS completely from the teletype with the exception it 
% -the TeDIT command which requires the screen and cursors. 

To use the teletype, Just put in P0RT=4 making the screen inactive until 

you say Port-1 

One can also Just use the TTY as an extra input leaving the screen 

at the control pott (1) 

To use paper tape 
20 RDON 

30 INPUT #4,A,B,C 
40 RDOF 



Paper tape must use commas and carriage return 



005 REM TU ILUSTHATh n.bts OF TPOS., 
0006 REM TBKS *TBKL AT GO TIME 



TH)07 Hm -ToiinCflN raWD^AT^-BUOCK^P^m-^^^^S^E^OTH DCB 55, 2 5 5) 
BOOB REM AS LONG AS" ' '*" -■- - 



FT R 5 T c^ WM o^Xi^^'^ 7- 



rCAItfATJAT 



60 



IT IS 

— 0009 "REM " BOB GRAI NGEK 

—00 10 DIM DC 1 00> 
~ 080 INPUT"" J __ 

— TJ 030 I NPUT DC J> 
— 0^0 "IF DC J) >50 THE M" GO TO 
DO 50 GOTO 20 
"0 060 TPOS DO '~~fl*<iL&^"&Mj2$?*A Q ^ZfZl 

65 TBKS Dl 'l<^^-^^Jf^^^ '_ '__ 

070 PRINT "SAVEtf" 
080 INPUT 
U090 INPUT 
"0 100 IF DC J) >50 THEN GOTO_ 

OMO GOTO 80 "" " ~~~_ J~3Z 
TrTg0"TP0S~DT"tepTW«a7^ ~' 

"0125 TBKL 7' D2 

"01 30 PRINT DC 1 ) J DC2> JDC 3)^ _____ _____ 

-TJ140 END " " r ~~" 

"0 1 61 REM USE TP0S"T0r"FI ND LAST SPOT 
"0162 REM WI THOUT OVERLOADING CTTRRENT JOB - 
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"Tf =-7-75-3* 
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DC J) 



fw 



■X(*^** 5 3' t '- 



120 






_A 



J*-?<h'* <^.<%-r&** < &K <** tf*^ 



~A^Ziu0( cf**. &stx***i cX t*f> ~*A~ 






M 



---Jkz r-391 1> 36 PSH 
*» ,T 2918> B6 



I 



2914 >■ 
~2917> 



B7 
86 

-2919> B7 
-291 C> 32 

29tl> 39 



a: a/ 



291E> 
298 1> 
2923 > 



TtYf 
OtfT 



B6 
84 
2 7 
B6 
01 
36 



2925> 

2928 > 

2929 > 
292A >R6 
892D >84 
292F> 2 7 
2931 > 
2932> 

2935 > 

2936 > 



2938> 

29 3G* 



0£fcfc 



32 

B7 
39 

86 
20 
86 
20 
86 
20 



glHo 



293 E > 
2940> 
2942>-86 
2944 ■> 20 

294 6 > 86 



LDA 
STA 
LDA 

STA 

. pfTL - 

-RTS 

LDA 
AMD 

BEO 
LDA 
MOP 
PSH 
LDA 
AMD 
BEQ 
PHL 
STA 
PTS 
LDA 
BRA 
L DA- 
BRA 
LDA 
BRA 
~b DA- 
BRA 
LDA 



A #$03""' 
A $F0 50 
A «S02- 



5FOS0 



A SF050 i" 

A #«0 1 -" 

" SF9- 29 1ET 

A JF051 V 

Echo Na Gcjio <> 39 

A ' — 

A SF0 50 '" 

A # S02 " ' . 

SF9 29 2 A 

A - " - - - 

A 



'2970>""D"E"LDX 

2972> IB 
-8973 >- 16 

2974 > 9C 



y-£lsv~L>~*-^ 



ABA 



J&KL 



rfiks 



SF051 



-29-4 8 > 20" BRA' 

-294 A>- 8-6" LDA- 
W r-- 294C> B7 STA 



:H0 



■#«1T - 

$EF - — 

#?13 

"S KB — 

#?0C 

'fEF — 

-JE3- — 

-#soi— 

-?02 

-#-«-3-9-- 

-52928 



-2929 



-29 29 



29 3 1 



2929 



"29T6~> 
"29 78 > 
"8979 '>' 
"897B>' 
~297E> 
2980 >' 
2982> 
2984 > 
"298 7> 
2989> 
298B> 
298 D> 
298 E> 

298 F> 

299 1> 
299 2> 

-2994 > 



— 29-4C- 



DRV'T"'"29 50> 



-29 4-E> 39- --BTS: 



86 LDA 

"2952 > 20 -BRA' 

p|^trar29 54>- 8 6 — L DA 

"2956 > B7 - STA 

-29-59> 39 RTS 

■JTfia ''S" 29 5A> 8 B R SR 



"A-r?.60 - 

—$02 - 

-A~-#562— 
A SOI 12 



"29 56 



295C> 
-29 5E> 

2960> 
-2962> 
-296 5> 
>68> 
-2969 > 

296B> 
-296D> 



DE 
DF 
DF 
BD 
BD 
5F 



LDX 
STX 
STX 
JSP. 
JSP 
CLR 
DE L DX 
DF STX 
BD-dSR- 



B 



S3D 

-S20- — 
-S-3C— 
-?3E" — 
•-JFB77- 

5FBB5- 



53C" 

-soo 



-2999 



-S-FB-7-E- 



—299 7> 

2999> 
~299B> 

299D> 

299F> 

"29A1> 

-■29A4>- 

29A5> 
' 29A8> 

89AA> 
_ 89AC> 
" 29AE> 
" 29B0> 
-"29B2> 

29B4> 
--29B6> 

29 B8 > 
-29B9 > 
-29BB >08 

29BC> 08 
— 29BD> 
-29 BE > 
29BF> 

29 CO > 
"~29C1> 
~89C'3> 



TAB 
CPX 

BEO" 
I MX 

BRA 

'JSR 
BRA 
BSR 
BSR 
JSR 
BRA 
BSR 
BSP 
DEX 
DEX 
LDX 
DEX 
STX 
JSR 
BRA 

DE LDX 

DF STX 



"2T 

08 

80 

BD 

20 

8D 

8D 

BD 

20 

8D 

8D 

09 

09 

EE 

09 

DF 

BD 

20 



DE 
DF 
BD 
39 
BD 
DE 
DF 
DE 
DF 
DE 
DF 
DE 
DF 
39 
DE 



■-to+icpyp+f*- 



"29C5> 



08 
08 
08 
08 
DF 
DF 
39 



LDX 
STX 
JSR 
RTS 
JSR 
LDX 
STX 
LDX 
STX 
LDX 
STX 
LDX 
STX 
RTS 
LDX 
I MX 
I MX 
TlMX 
I MX 
I MX 
I MX 
STX 
STX 
RTS 



"soo 



S3E 



"FFO~~ 
"SFR9 7 

525 
"SI 7 

S35 

SFR91 
'SIC 

JOE 

S2C 



00*'X 

?3E 

SEP 2D 

50C 

SSO 

SFO 

S22 

SF2 

S0C2A 

S0C61 
SEC 
S3C 
SEE 
S3E 
SFO 
520 
SF8 
"'522 

$28 



"$3'C 
$3E 



"89 7B 

"S9~6 B 

29 A 5 
2999 
29 P9 

29 A 5 
2999 
29B9 



89 A 5 



Zo 



L0( 



ir 



lit 


LUX 


2C 




DF 


SIX 


6A 




BD 


JSR 


0609 




DE 


LDX 


63 




DF 


STX 


6C 




DE 


LDX 


6 A 




DF 


STX 


xlt* 




BD 


JSR 


12B7 




DE 


LDX 


6C 




i 09 


DEX 






: 09 


DEX 






' EF. 


LDX 


xoo 




DF 


STX 


6E 




• BD 


JSR 


04 AC 




P BD 


JSR 


04AC 




DE 


LDX 


AC 




08 


I NX 






08 


I NX 






08 


T i 1 '-./ 

j. i\ a 






08 


INX 






08 


I NX 






08 


INX 






9C 


CPX 


6E 




do 


r. \ f r* 


01 


STORE 


39 


RTS 






E DF 


O 1 A 


AC 




BD 


JSR 


031E 




20 


BRA 


E9 


LOOP 



FIND VARIABLE 



MAT GET 



BORROW LET CODE FROM BASIC 



HOVE NUMBER DLL 



■OINTER 



SAMPLE PROGRAM 



ooio 

020 

0030 
0040 
0050 



Lt:. I f\- ■■ * i 
RJUST= 10 
DIM AC 3»3> 
MATSET AC i » 1 )=X 
MATPRINT AC 1»1 > 



Faster Looping 

by Bob Van Valzah 



(FASTER LOOPING by Bob Van Valzah appears 
courtesy of the CACHE Newsletter.) 

How many times have you heard that you can't 
get something for nothing? In many cases, it is 
possible to increase the execution speed of a 
loop without taking any more memory! I will use 
BASIC to illustrate the idea, but it works in 
any language. 

Suppose that you want to execute the body of 
a loop zero or more times. It is typically 
coded like this: 



100 IF 1=0 THEN 400 
200 .. . 
300 GOTO 100 
400 .. . 



.exit loop if done 
.body of loop 
•branch to exit test 
.continue here 



Compare the example above to this loop which 
has the same effect, but which runs faster: 



100 GOTO 300 

200 .. . 

300 IF IOO THEN 200 

400 .. . 



.branch to exit test 
•body of loop 
. loop until done 
.continue here 



This second loop has the same statements, but 
the difference is in the loop overhead. Suppose 
the body of the loop has to be executed 1000 
times. In the first example, 1000 GOTOs and 
1000 IFs are executed in addition to the body of 
the loop. In the second example, one GOTO and 



1000 IFs are executed. Thus we have eliminated 
the time it takes to execute the GOTO from all 
iterations of the loop but the first! 

This technique assumes that it takes no 
longer to test if a condition is false than to 
test if it is true. This is almost always the 
case, e.g. IOO is just as fast a 1=0. The 
benefit from using this technique is greatest if 
the body of the loop is executed a large number 
of times. I wish that I could take credit for 
thinking this one up, but I can't. The idea 
appears in an article written by David Feign of 
Chapman College in the November issue of SIGPLAN 
NOTICES . 
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START 



BASE | 



PRNT 
LOOP 

INX6 



DD JSR 
BE LDX 

JSR 
BSR 
LUX 
STX 
DEX 
DEX 
DEX 
HEX 
LDX 

OTV 
».> I /\ 

STX 
LDX 
TST 
BEG 
INC 
INC 
TST 
BEQ 
IMC 
IWC 
TST 
DNE 



BB 
8D 

BE 
BE 
0? 
0? 
09 
07 
EE 
BE 
BE 
CE 
7B 
27 
6C 
68 
6D 
27 
6C 
6C 
6D 



109 A 
2C 

0609 
76 

6E 



X00 

6 A 

6C 
#00 6 A 

0O9C 

0C 
X00 

AV £. 

XOi 

04 
XOI 
X03 
XOI 

OA 



l-i/ 

86 
A7 
A 7 
7 A 
DE 
B6 
08 
08 
00 
08 
08 
08 



LDAAXOO 
STAAX01 

LDAA-101 
ST A AX 00 
AAX< 






DEC 

LDX 

LDAB 

INX 

I NX 

INX 

INX 

INX 

INX 

5A BECE 

. 26 BNE 

J BE STX 



006B 

63 

6C 



• m.< 

' 8D 

7A 

26 

7A 

. 26 

r CE 

' DP 
" 7E 

INX6F i- DE 
08 

08 
08 
08 
08 
08 
DP 
BB 
.01 
BB 



BSR 
DEC 
BNE 
DEC 
BNE 
LDX 
STX 
J MP 
LDX 
INX 

INX 
INX 

INX 
INX 
INX 
STX 
JSR 
NOP 
JSR 



F7 

/ T 

OJ 

0353 
3C 

006B 
E7 

006A 
08 
*0001 
70 

02C6 
6E 



6E 
111A 

0353 



FIND 



lASEl 



TEST FOR 



JL' H i 



Bf. 



m ;;> 1::. J. 



PRNT 



PRNT1 

LOOP' 

INX6E 



MAT PRI 



C» A i< |~i l i~ r, ft ,-■ ;-■ •-.. a \.t 



0010 Blii A<[ 6,6 ) 
0020 hft I Pi\ 1 iiJ 4- : 





ft 



oooooo 





!l i 1 ) 



:u 



8D 


BSR OA 


FIND 


96 


LDAA 6D 




97 


STAA 6B 




DE 


LDX 6E 


„ 


DF 


SIX 63 




20 


BRA BA 




riHDl'6 


LDAB 70 


PR NT 


27 


BEQ 09 


PRNI1 


5A 


BECB 


* 


'ACE 86 


LBAA#20 




BD 


JSR OiFi 




5A 


DECB 




■--. 26 


BNE F8 


GPACEJ 


NT1 7f 


J MP 11 BE 





MAT PRINT for CSS BASIC 

Mat Print actually prints out a ltst( one dtmensloal ) or an array 
(two dimensional). The routine will correctly coordinate with BASE=, 
RJUST, MAT TAB, MAT SPREAD, DIGITS= and PORT = all of which add flex- 
ibility to the appearance of the printed array. In the sample program 
the printer is at port 0. 

Mat Tab works like TAB and thus moves the entire matrix to the right. 
Mat Spread spreads spaces between the elements and is particularly nice 
if each element has many digits. Without the spreading, the printout is 
very tightly packed and is hard to read. 

RJUST moves the printing to the right, lines up the decimal points 
and causes some spreading out also. 

In order to generate the Mat tab and Mat spread commands, I had to 
create two memory pointers and Initialize them at hard start. It was 
possible to do this without needing more bytes in the original CSS 
pointer tnttlallse routine. 
At 0A54 

4F 97 3E 97 3F 97 48 97 74 97 75 97 58 97 9B 97 9C old 
CE 00 00 DF 3E DF 74 DF 93 4F 97 48 97 58 08 DF 70 new 

It was also necessary, for spreading, to have the BASIC'S PRINT 
routine have the ability to put various numbers of spaces after a 
number Is printed. The final version of the routine to allow this 
responds to the value of location 71. This may be used for other 
purposes also. For Instance USING previously always followed a 
numeric with a space. If one takes the trouble to add to his USING 
routine a clear 71 before USING (and a load 71 back with a 1 afterwards) 
then USING will be a little more perfect routine. 
At 11E0 PRINT output ted the single space with 7E 
Change It to 7E XXXX where XXXX Is the address of 
routine. 



The MAT TAB routine 1st 

BD 1808 get number of columns to tab to 

D7 70 store it 

39 return 

The MAT SPREAD routine similarly 1st 

BD 1808 get number of spaces to spread out 

D7 71 store It 

39 return 
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the 


following . 


little 




7B 


TST 


0071 




26 


BNE 


01 




39 


RTS 






06 


LDAB 


71 




BD 


JSR 


02F6 




SA 


DECB 






26 


BNE 


FA 




39 


RTS 











6C2F 


F7 


STAB 


ACFC 




6B80 BD JSR FC37 


6C32 


A6 


LDAAX00 




6B83 


BB 


JSR FC3B 


6C34 


BB 


JSR 


FF02 




6B86 


86 


LBAA*44 B 


6C37 


FE 


LBX 


6CFB 




6B88 


BB 


JSR FCBC 


6C3A 


BC 


CPX 


6B02 




6B8B 


86 


LBAA#55 U 


6C3D 


27 


BEG 


59 


6C98 


6B8D 


BB 


JSR FCBC 


6C3F 


08 


INX 






6B90 
6B92 


86 
BB 


LBAA*4D H 
JSR FCBC 


6C40 
6C43 


FF 
7A 


STX 
DEC 


6CFB 
6CFC 




6B95 


86 


LBAA#50 P 


6C46 


26 


BNE 


EA 


6C32 


6B97 


BB 


JSR FCBC 


6C48 


BB 


JSR 


6CF5 




6B9A 


BB 


JSR 6CF5 


6C4B 


FE 


LBX 


6CFB 




6B9B 


86 


LBAA453 S 


6C4E 


7A 


BEC 


6CFB 




6B9F 


BB 


JSR FCBC 


6C51 


26 


BNE 


BA 


6C2B 


6BA2 


86 


LDAA#54 T 


6C53 


"77 


BEQ 


02 


6C57 


6BA4 


BB 


JSR FCBC 


6C35 


20 


BRA 


BB 


6C32 


6BA7 


86 


LBAA-141 A 


6C57 


BB 


JSR 


6CF5 




6BA9 


BB 


JSR FCBC 


6C5A 


BB 


JSR 


6CF5 




6BAC 


86 


1 T.AA .». ICT •-) 1", 


6C5B 


BB 


JSR 


6CF5 




6BAE 


BD 


JSR FCBC 


6C60 


C6 


LBAB*:i 




6BB1 


86 


LBAA#54 T 


6C62 


F7 


STAB 


6CFC 




6BB3 


BB 


JSR FCBC 


6C65 


FE 


LBX 


6B00 




6BB6 


BB 


<jSR 6CF5 


6C68 


FF 
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6CFB 




6BB9 


86 


LB A A* 3D = 


6C6B 


A6 
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6BBB 


BB 


t r^ r't r' t~- vt r* 
•JOiA r UPW 


. 6C6H 


81. 


CMPAS20 




6BBE 


BB 


JSR 6CF5 


6C6F 


2B 


BLT 


04 


6C75 


6BC1 


BB 


JSR FEE4 


6C71 


81 


CMPAS5F '*■ 




6BC4 


F7 


STAB 6D04 


6C73 


2F 


BLE 


02 


6C77 


6BC7 


B7 


STAA 6D05 


6C75 


86 


LBAA 


f2E . 




6BCA 


BB 


JSR 6CF5 


6C77 


BB 


JSR 


FCBC 




6BCB 


86 


LBAA$45 E 


6C7A 


FE 


LBX 


6CFB 




6BCF 


BB 


JSR FCBC 


6C7D 


BC 


CPX 


6B02 




6BD2 


86 


LDAA*4E N 


6C80 


27 


BEQ 


-y-y 


6CB5 


6BB4 


BB 


JSR FCBC 


6C82 


08 


INX 
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86 
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7A 


BEC 


6CFC 




6BD9 


BB 


JSR FCBC 


6C86 




BNE 


E0 


6C68 


6BDC 


BB 


JSR 6CF5 


6C88 


FF 


STX 


6B00 




6BBF 


86 
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6C8B 


7A 


BEC 


6CFF 
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BB 
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6C8E 


17 
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5B 


6CEB 
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BB 
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BE 


LBX 
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6BE7 


BB 


JSR FEE4 


6C92 


BB 
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FD14 
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F7 
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6C95 


7E 
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6C13 
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B7 
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F6 
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6BF0 


B6 
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6C9B 


58 
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B6 
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B6 
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81 
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02 
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BB 


JSR 6CF5 


6CA3 


CB 
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BB 
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6CA5 


CO 
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F7 
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BB 
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BB 
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B6 
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BB 
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F7 
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BD 
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C6 
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86 


LBAA#45 E 
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BD 
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BD 
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86 
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BB 
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81 
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F8 
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7E 
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86 
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BB 
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39 
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Here is Harry Friedman's 
utility program to dump 
blocks of memory contents 
to a 64 char/line screen 
in hex and A sett. 

The format ist 

XX XX XXX X XX XX XX XX XX XX ASCII 
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For further info 
send a blank tape 
& request object 
or source listing 
to be recorded, 

Harry Friedman 
945 Dudley Br, 
Shreveport La, 
71104 










This 2 cassette control makes use of bits and 1 of the B side of the CPU board 
PIA addressed at F042. The circuit is adapted from a circuit which appeared in 
in an article by Wayne D. Smith in the October 1977 issue of BYTE magazine. 

The routines listed over will properly drive both cassette units. Initiali2e is 
necessary as F042 comes up 00 at power up and should be set to 03 to turn both 
drives off. Proper operation of the cassette drives is still necessary to put 
them in the required operation mode. 

I load these routines in high memory (4F10) , but since they are only 2AHex bytes 
long they could be located almost anywhere. 
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For Sale: One tape and manual of CSS Baste with manual and patched 
for SPHEBE (Including renumber and matrix operators). 
Be certain to describe your system when ordering, $27 

Free i To those who have purchased DYNASOFT PASCAL 

If you send a blank tape we will return a copy of the 
Spherized Pascal including save and load programs to 
cassette. The master cassette Is patched for a 20K 
V3N system. 



FOR SALE: Sphere Microprocessor * (y$N Proms) 

CPU/ 2 

MEW w/4K on board 

SIM w/CassI£ (F060) 

CRT w/Composite & RF Video Out 

(CRT needs replacement of one ROM) 

Power Supply 
Keyboard 

Misc: Connecting cables; low profile case, 

modified to accept home-brew card rack; 
Sphere Manual; Motorola 6800 Application 
& Programming Manuals; plus misc. tapes 
and software. 

Any reasonable offer will be considered. 

Write: J. D. Tregeagle ^Everything in working 

"Rox B-35638 condition except as noted 

CTF-C / F-356 on CRT - needs a MCM6810AL 
Soledad, CA 93960 



FOR SALE. 



ABN 3A TERMINAL 

24 LIKES X 80 CHARACTERS 

UPPER/LOWER CASE 

*650 

VIC UINTRISS 
800-621-1466 EXT 1041 



Wanted: any Information about the DATA DISC Con ^J'Z^ld'Veff^ 
at 1275 California Ave,, Palo Alto Ca, Guilt Die oia ***JJ 
Vought their Model F-3 Bard Disk with electronics. Not to 
worry. I paid only fifteen dollars for the whole thing. 



